if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if
%>
<%
%>
<%'if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then
if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
<table border=0>
<% end if %>
<%
Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage
' Detta Σr detaljdelen f÷r Rubrik, beskrivning, URL, Storlek och
' Modifikationsdatum.
TmpExt = Server.HTMLEncode( RS("filename") )
FullExt = Right(TmpExt, 3)
If FullExt <> "cnt" and FullExt <> "hhc" and FullExt <> "hpj" and FullExt <> "hlp" and FullExt <> "rtf" and FullExt <> "asf" and FullExt <> "gid" and FullExt <> "fts" and FullExt <> "wmp" and FullExt <> "hhk" and FullExt <> "txt" and FullExt <> "ass" and FullExt <> "idq" and FullExt <> "ncr" and FullExt <> "ncl" and FullExt <> "url" and FullExt <> "css" and FullExt <> "prp" and FullExt <> "htx" and FullExt <> "htw" and FullExt <> "tmp" and FullExt <> "mdb" and FullExt <> "xls" and FullExt <> "chm" Then
' Om det finns en rubrik, visa den. Visa annars filnamnet.
%>
<p>
<tr class="RecordTitle">
<td><b><%=NextRecordNumber%>.</b></td>
<b class="RecordTitle"> <td><b>
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%>
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
<%= RS("characterization")%>
<%end if%>
<%if CiResultsSize = "on" then%>
<%end if%>
</td>
</tr>
<tr>
</tr>
<%
else
NextRecordNumber = NextRecordNumber-1
end if%>
<%
RS.MoveNext
NextRecordNumber = NextRecordNumber+1
Loop
%>
</table>
<P><BR>
<%
else ' NOT RS.EOF
if NextRecordNumber <> 1 then
Response.Write "Inga fler dokument i frσgan.<P>"
end if
end if ' NOT RS.EOF%>
<%
if Q.QueryIncomplete then
' Om frσgan inte kunde exekveras dΣrf÷r att den beh÷vde anvΣnda upprΣkning
' f÷r att lΣsa ut frσgan istΣller f÷r att anvΣnda index, men AllowEnumeration
' hade vΣrdet FALSE, sσ underrΣttar vi anvΣndaren %>
<P>
<I><B>Frågan kunde inte fullf÷ljas. Gör om frågan.<BR> Teknisk information: AllowEnumeration måste tilldelas vΣrdet TRUE för att frågan skall kunna fullföljas.</B></I><BR>
<%end if
if Q.QueryTimedOut then
' Om frσgan tog för lσng tid (om t.e.x. f÷r mycket arbete krΣvdes
' f÷r att bearbeta den), underrΣttar vi anvΣndaren %>
<P>
<I><B>Frågan tog för lång tid för att fullföljas.</B></I><BR>
<%end if%>
<TABLE>
<%
' Detta Σr knappen "föregσende".
' Detta hΣmtar den f÷regσende sidan med dokument f÷r den hΣr frσgan.
%>
<%SaveQuery = FALSE%>
<%if CurrentPage > 1 and RS.RecordCount <> -1 then %>
<INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE="<%=RankBase%>">
<% NextString = "More >>"%>
<input type="submit" value="<%=NextString%>">
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%>
</TABLE>
<% ' Visa sidnumret %>
<%if RS.RecordCount = 0 then%>
Inga dokument matchade frågan <%=SearchString%>.<br><br>
Du kan:
<UL><LI>Underrätta oss <a href="mailto:iisdocs@microsoft.com?subject=<%=SearchString%>-search%20term%20not%20matched&body=The%20term%20'<%=SearchString%>'%20produced%20no%20matches.">(mailto:iisdocs@microsoft.com)</a> så att vi kan förbättra sökningen i kommande versioner.
<LI>Leta efter närliggande termer i index.
<LI>Kontrollera stavning och syntax.
<LI>Försöka med andra sökalternativ (Du kan välja standard, exakta fraser, godtyckliga ord, alla ord och booleska alternativ).
<LI>Try your query again later. If you've just started Indexing Service, it may take a few minutes to catalog the IIS documentation.
</UL>
<%else%>
Sidan <%=CurrentPage%>
<%if RS.PageCount <> -1 then
Response.Write " av " & RS.PageCount
end if %>
<%end if%>
<%
' Om antingen föregσendeknappen, eller bakσtknappen visades spara frσgan
' och postuppsΣttningen i sessionsvariabler.
if SaveQuery then
set Session("Query") = Q
set Session("RecordSet") = RS
else
RS.close
Set RS = Nothing
Set Q = Nothing
set Session("Query") = Nothing
set Session("RecordSet") = Nothing
end if
%>
<% end if %>
</BODY>
</HTML>
<%else%>
<%
'Ta bort brusord frσn s÷ktermen
NCompare=""
NewCompare=""
SearchStringComp=SearchString+" "
for x = 1 to len(SearchStringComp)
if mid(SearchStringComp,x,1)=" " Then
ncompare2 = ","+ncompare+","
if instr(noise,ncompare2) = 0 then
NewCompare=NewCompare+" "+ncompare
End If
ncompare=""
else
ncompare=ncompare+mid(SearchString,x,1)
end if
next
x = len(NewCompare)
if left(NewCompare,1) = " " Then
NewCompare = right(NewCompare,(x-1))
end if
SearchString=NewCompare
'Ta bort skiljetecken frσn s÷ktermen
SearchStringErr = ""
for x = 1 to len(SearchString)
testpunc= mid(SearchString,x,1)
if instr(punc2,testpunc) then
SearchStringErr= SearchStringErr
else
SearchStringErr = SearchStringErr + testpunc
end if
next
SearchString = SearchStringErr
CompSearch=SearchString
%>
<%if SearchString = "" or instr(SearchString,"*") or instr(CompSearch,")") or instr(CompSearch,"(") or right(CompSearch,3)="OR " or right(CompSearch,4)="AND " then%>
<b>Indexeringstjänst kunde inte bearbeta frågan.<p></b><br>
Omformulera frågan och försök igen. Vissa vanliga ord (som "hämta", "för" och "många") indexeras inte. Använd inte skiljetecken (komman, punkter o.s.v.) i frågan.
<%else%>
Indexeringstjänst har inte startats<p>
*<%=CompSearch%>*
<br>
Om du vill utföra sökningar i IIS-dokumentationen måste du först starta Indexeringstjänst.<br>
<p>
Om du vill starta Indexeringstjänst
<ol>
<li>På en dator som kör IIS högerklickar du på ikonen för <b>Den här datorn</b> och sedan på <b>Hantera</b>.<p>
<li>Expandera noden <b>Services and Applications</b> i MMC.<p>
<li>Markera <b>Action</b> menu and then click <b>Start</b>.</p>
<li>Klicka på startknappen på MMC-verktygsfältet.<p>
</ol> <p>
Obs! Det kan ta några minuter att katalogisera IIS-dokumentationen i Indexeringstjänst.<p>
Om du vill använda sökning medan du läser dokumentationen via fjärranslutning, måste Indexeringstjänst köras på datorn som servar dokumentationen. Kontakta webbplatsens administratör om du inte kan starta Indexeringstjänst.
